home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / First Tutorial / Session 1 < prev    next >
Lisp/Scheme  |  1998-10-26  |  579b  |  35 lines
  1. (setq symbols '(a b c d e f g))
  2.  
  3. (def-symbol
  4.     instr1 symbols
  5.     instr2 symbols
  6.     instr3 symbols
  7.     instr4 symbols
  8. )
  9.  
  10. (def-length
  11.     default '1/16
  12. )
  13.  
  14. (def-channel
  15.     instr1 1
  16.     instr2 2
  17.     instr3 3
  18.     instr4 4
  19. )
  20.  
  21. (setq tonals (activate-tonality (blues1 c 4) (chromatic c 6)))
  22.  
  23. (midiport :printer)
  24.  
  25. (def-tempo 120)
  26.  
  27. (compile-song-p "ccl;output:" 1/4 "Session 1"
  28. ;   BARS              |---|---|---|---|
  29.     changes tonals   " ......."
  30.     instr1 changes    "-   -   "
  31.     instr2 changes    " -   -  "
  32.     instr3 changes    "  -   - "
  33.     instr4 changes    "   -   -"
  34. )
  35.